Présentation du programme AUTOMUSE 


OBJECTIFS 


I) Elaborer un programme de type conversationnel, qui le rende utili- 
sable par tous et qui permette d'intervenir à tout moment durant 


la composition, qui permette d'improviser en quelque sorte. 


2) Dens la perspective de la synthèse sonore, concevoir un programme 
qui pourrait constituer une " fonction de composition" (sous- 


routine PLF) dans le programme MUSIC V de Mathews, 


3) Exploiter le plus possible les ressources de la polyrythmie, en 


superposant des lignes mélodiques de pulsation de base différente, 


Δ) Construire rythme et échelles sur une même base arithmétique. 


5) Brivilégier les dessins d'évolution au dépens des notes. 


΄. 
. `. S 2 “ CA i - 
s. T S PEER. ° 17. ` 


6) Pouvoir à volonté varier la densité, comprimer ou déprimer les 


thmes. distribuer le " dessin " en mélodie ou en accords ο 
IY 3 


CONDITIONS DE TRAVAIL 


L'ordinateur utilisé est ine machine CAE-510 d'une capacité-mémoire 

de 8k-mots, ce qui n'est pas énormel Il est par contre très accessible, 
le facteur d'accessibilité n'étant pas le moins important. Comme 11 
n'était pas possible de "synthétiser", il fallait donc éditer sur une 


impromante ἃ boule, 


Etant donné ces donditions, il fallait donc faire quelques compromis: 
-au point de vue du rythme, utiliser un tableau de base qui soit 
À la fois court et musicalement intéressant; 


-au point de vue des hauteurs, utiliser une échelle "notable", 
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La tentation était grande de choisir le nombre 12 à la fois comme base 
rythmique et fréquentielle. Nous y avons succombé pour les raisons 
suivantes: | | 
_-un cycle (cf structures de groupes) est déterminé par le PPCM des 
périodes des sous-groupes: Avec des périodes de sous-groupes de 


(3,4,8,9), nous obtenons donc un cycle de 72 et un sous-cycle de 12. 


100100100100100100100100100100100100100100100100100100100100109100100100 
100010001000100010001000100010001000100010001000100010001000100010001000 
10000000 10000000 10000000 10000000 10000000 000000010000000 1 0000000 100000001 ` 
و0 00000000 1 00000000 1000000001 100000000100000000100000000100000000 


-d'autre part, le modulo 12 est le modulo de la gamme tempérée 
utilisée en notations traditionnelless il a été, de plus, l'objet 
d'attentions spéciales de la part des compositeurs sériels. 
L'utilisation de la "série", guère novatrice et limitatrice à 
‘bien des égards, permettait par ailleurs d'éditer sur imprimante 
en portées traditionnelles et de proposer généreusement le pro- 


duit au jeu bienveillant d'instrumentistes... 


I1 est donc important de ne pas perdre de vue les raisons, de nature 
restrictive avant tout, ayant motivé le choix: 

-des pulsations de base (3,4,8,9); 

-Au tableau rythmique de longueur 16: 


-de la série. 


JEUX D'EVOLUTION 


1) Rythmiques: 
Toutes sortes de possibilités s'offrent au compositeur pour varier 
l'évolution xythmique d'une oeuvre. Pour ce programme, nous avons 
retenu les suivantes: 
-retarder les départs des voix les unes par rapport aux autres; 
-décaler le tableau rythmique de base 12 fois, chaque fois 


d'une cases 
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O O مہہ‎ — QO — ن‎ — — © © — 

O QO‏ مہ — ںن 
C = C — 0‏ — یہ O= O CO‏ 
Cy —‏ — رج سے — O QO C O‏ = 
© — ن — — رے) رم — C‏ رح — — 
— وخ — س OO OO‏ رخ O=‏ 
وج — کک C‏ رج > ο‏ ن حم جے QO‏ ہے 
C) — © ο πα»‏ کد دد و κο ο‏ 
O {Á Or OOQ‏ — ن = 
D)‏ ی جب ss O0 C‏ و ο‏ — 
C Ὃν‏ ںی تب ت ن د ن ف DO‏ 


appliquer au vableawirythmique de base les facteurs 2,3,4 


de diminution ou d'augmentation ( compression ou dépression }). 


2) Fréquentiels: 

Du point de vue des hauteurs, ce sont les "dessions d'évolution" 

qui ont le plus d'importance. Ils sont pour l'instant au nombre 

de neuf (9): ` AIGU | 
MOYEN 
GRAVE 
EXTREME 
OUVRANT 
FERMANT 
EXT-CENTRE 
EXT-DROITE . 
EXT-GAUCHE 


b 


اط 


La sélection aux clés de la console CAE-510 nous permet, pour la 
parche simultenée de 4 voix, de βάδοκετ jusqu'à 16 dessins 


différents, 


Afin de familiariser le lecteur-surtout le musitien non-informaticien- 
aux possibilités du programme, nous "computerons ἃ la main" le ler 
bloc de la "lëre étude pour ordinateur polyphonique"... Précisons 

que l'oeuvre est générée par blocs de 12 lignes d'édition sur 


imprimante, correspondant ἃ 12 unités temporelles de partition. 


DECTION As + lecture sur cartes des 
AL: utilisé dans la section E; 


NV: au choix de 1 à 4; 101941 
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PPCM: ici Το. 

SPs ici 12; 

RL: ici 3 4 8 9; 

DEP: ici, toutes les voix partent ensemble sur le ler temps, donc 
1111: 

SER: série (toute bête) générée de façon aléatoire dans un pro- 
gramme différent (àf annexe). Ce même programme a aussi 
généré les 8 autres séries correspondant aux dessins d'évolu- 


tion ci-haut mentionnés; 


10 5 9 11 4 2 0 1 7 6 £3 

46 41 45 47 40 38 36 37 43 42 44 39 

-26 -31 -27 -25 ~32 -34 -36 -35 -29 -30 -28 -33 
-26 41] -27 47 -32 38 -36 37 -29 42 -28 39 

10 -7 21 -13 28 -10 36 -23 43 -30 hh -33 

46 -31 33 -25 28 -22 24 -11 19 -ὂ 20 3 

10 5 -27 47 4 2 n 1 43 -30 8 3 

10 5 9 11 -32 38 0 1 7 6 hh -33 


DIDI: matrice contenant les facteurs de compression ou de dépression 
des rythmes; | 

ALT: matrice qui "case" (modulo 12) les notes sur les lignes ou 
dans les espaces de la portée; 


RYT: matrice contenant les translations du tableau rytlimique de 


base (ëf ci-haut). 


Clest partil eee... 


SECTION B 
Mettre en mémoire (tableau PUL) -les accents (>) contenus dans les 72 


unités temporelles du cycle rythmique (cf ci-haut). 


SECTION Ç COMMENTAIRES: 
VAR | 
lala lalo] On peut à chaque bloc effectuer des changements sur 


quatre paramètres: 
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NONO = densité; 

-RAP = compression/dépression des rythmes; 
-ACO = mélodie/accord; 

-je 


Changement: 1 si oui 
O si non, 


l 


(wide pour l'instant). 


NONO Reprenons le tableau rythmique de base 
|2}3|4|5] 100110101100 | 
sous cette forme, il permet un maximum de 6 notes 
par bloc. Ici, ΜΙ | 


1ère voix = 2 notes 


2Éme = 3 ٤ 
3ème = 4 " ۴ 
486 - n 

RAP 1ère voix: diminuer les valeurs rythmiques d'un 


|-2|2|1 دا‎ | η. facteur 2 (i.e, —_ ); \ 
| 2ème voixs augmenter d'un facteur (ice.  —+ / ); 
3ème voix: aucun changement (4.68. 2 —> م٣٣ و(‎ 3 


4ème voix: diminuer d'un facteur 3 (i.e, AE / (TA) 


ACO Jêre voix: mélodique; 
|ο|1|2}3 | 2ème voix: accord sur le ler temps; 
3ème voix: accord sur le 28πο temps; 


4ème voix: accord sur le 3ème temps, 


SECTION D 
CLES Il s'agit des clés du compteur octal de la CAE-510 
au nombre de 18. Nous en utilisons 4 par voix, délais- 


sant la numération octale pour l'héxadécimale., 


Code utilisés ο ο O 1 = 888 
ο ο 1 ο = SAIG 
ο ο 1 1 = SGRA 
ο 1 ο O = SEX 
ο 1 ο 1 = SOUV 
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choisir au 


O 1 1 O = SFER 
O 1 1 1 = SEC 
1 O O O = SED 
1 O O 1 = SEG 


Dans cet exemple, faisons: 
| 0 οἷο 10 ο]ο O 1 1 lo O 1 οἷο O 0 1] 


SEX SGRA SA IG SER 


Dans la mémoires 


+ 


Nous en sommes maintenant au moment de 


hasard l'une des 12 lignes de la matrice rÿtnmique de 


la région de 


exprimant cette 


la 8ème colonne 
la 7ème colonne 
la 128:006 colonne 


la 108:6 colonne. 


base et, en fonction de la densité, s 
cette ligne où se trouveront les notes 
densité. 
supposons: 


ière voix: 9ème ligne 
2 notes entre la 5ème et 


2ème voix: 8ème ligne 
3 notes entre la 2ème et 


3ème voix: 3ème ligne 
4 notes entre la 7ème et 


Aème voix: 7806 ligne 
5 notes entre la lêre et 


Pour les régions ainsi isolées, déplaçons simultanément 
un pointeur vis-b-vis des cases de RYT et de HAUT 
et partout où, dans RFF, il y a présence d'une note (1), 


mettons dans SNO la valeur correspondante lue dans HAUT 


Exemple: 4ème voix 


matrice HAUT 

116 10125 3 1 2 8 7 9 4 
47 42 46 48 41 39 37 38 44 43 45 40 
-25-30-26-24-31-33-35-34-28-29-27-32 
-25 42-26 48-31 39-35 38-28 43-27 40 


SECTION E 


SECTION F 
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REGION | 
"νιν ο و راو ر‎ 


RYT = 
(5e ligne) | 
ΨΥ Y Y τς . | 75 
سن‎ 220-042-26-08 -1 39 -35 36-28 43 -21 40 ] 
SEX 


Dans la mémoire, 

matrice 10 | | 

9 0 0 O 110 0 6 O O O O 
O 47 0 42 460 0 O O O O O | 
O ο O O O O —5 0-30 0-26-24 | 
—25 42 0 0-26 O O 48-31 0 O ο. 


SECTION G Suivant les valeurs lues dans BAP, la machine va 
chercher dans DIDI les facteurs de compression ow 
de dépression. Nous ferons l'étude de deux types 
de modification | | 

-Valeurs augnentéess 
exemples: 6 ligne de SNO 


O 47 0 42 46 0 0 0 0 0 0 O| x2- 


| ler bloc 


[0_047 ο O 0 42 0 46 0 ο O] 


ceme bloc | 
0 0 O O O O O O O O O O 


VU T wpaq. papan جا سن یب ہے‎ tn Eat مو‎ < τς. تد سے‎ PR πό te PONT سب-‎ s o "ispa ۰٠ جومے‎ MMM 


—valeurs diminuées: 
comme on ne peut réduire l'unité du tableau de 
base, la ruse consistera à étendre le tableau PUL 
des accentss 
exemples la 2ème voix 
SNO: la ligne mélodique stockée dans 0 
ne change pas, i.e. (2e ligne) X1 = (2e ligne); 
PUL: 


E 0001000100 ο] X 2 = 


ler bloc . 
100000001000 


2ème bloc 


| 00001000000 ο] 
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Notes alors que dans PUL, il y a 1 temps par case, 
dans (PUL) X2, il faut compter 2 cases pour 
èe même temps. 

Dans la mémoire, 


matrice MAT 


0 
O 48-31 
O O O 


O O O O O O O O 
= O O O O O O O 
IO C O O O O C O 


O 
O 
O 
O 
O 
O 
0 
O 


SECTION H Ecriture des repères de portée 
| ITTTTTI (4 fois) 

Comme la même portée; par économie, sert autant 

pour les notes de la clé de fa que celles de 8 


clé de sol, il fallait donc distinguer les signess 


V = accent τ (1) 
5 (πόστ) = (8) 
8 (rouge) = (3) 
) (noir) = (4) 
) (rouge) = (5) 
+ = +1 octave (Bva) (6) 
X = +2 octaves (l6va) (7) 
— = ~1 octave (Sba) (8) 


= —2 octaves (16ba) (9) 


Dans la mémoire, pour chaque voix, matrice SFA: 
10000020000000000006 


C'est à ce niveau du programme gue se fait l'accord selon ce qui est 
lu dans ACO, 


Exemple: pour la 4ème voix, accord en 3ème ligne 


ji 


-11 faut explorer MAT pour la 4ème voix, soits 
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fx 


= 
au seul 2ème temps 


Alors, le tableau SFA -[ 0405400000260?20000 °] 
ba 


11 nous semble intéressant de relever, au passage, que dans le cas de 


-25 42 0 0-26 0 0 48-31 0 0 O 


-ramener toutes les hauteurs étalées dans les 12 temps 


l'accord, 11 ordinateur "lit" l'avenir. C'est 18 une caractéristique 
de la machine qu'il sera certainement passionnant déexploiters lui 


faire modifier des "comportements!" musicaux du futur, 


Enfin, dernière étape, on transfert dans BOF les 4 SFA correspondant 
aux quatre voix: | | | 
BOF = SFA 1 SFA 2 SFA 3 SFA 4 


Nous vous invitons maintenant ἃ vous reporter aux partitions mêmes: 


l'une produite par l'īmprimante à boule, l'autre étant la sonso ino 


manuelle de cette première. 


vu LL pro 
Ma waach 
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?PRINT 


96 tDEB''ENT'I,U,K,L,M,N,0,P,QR, ST, AL, NV, SP, PPCM, D1,D2; 
97 6۰ ۸ .(1:20).,EL, VAR,NONO, DEP, ΒΑΡ, ACO, 
98 Co1,c02,C03,C04,CO05,.C1:4).,BOF.(1:80).,DUR.C1:6)., 


100 PER, SER, SAIG, SGRA, SEX, SOUV, SFER, SEC, SED, SEG.(C1:12)., 
1011  PUL.C1:4,1:80).,MAT.C1:8,1:12).,RY1.C1:12,1:12)., 
101 ALT.C1:2,1:20).,DID1.€C1:9,1:6).,HAUT,SNO.(1:h,1:12).; 


102 ΕΝΤΙ "PRO'ALEA ; 
103 AL:=MODÇCAL*7,997 3); 


1031  *ENT''PRO'!'MODCX, Y); ! ENT ! X, Y; 
104 ΜΟΡ:{ΞΧ-ΧΦΥΣΥ) 


1081 'PRO!RAND(A, B); !ΕΝΤΑ, B; 


105 t'DEB'ALEA;A:=MODCAL,B)+1'FIN"; 
106 PRO! CHANG ; 
135 "DEB''AIG'EMENT:=E1,E2,E3; 


1351 *ALL'EMENT. (K), 3 1:MUTE (CNONO), NONO ) ; ALL 'CODA ; 
1352 E2:MUTE (CRAP), RAP); "ALL 'CODA ;E3:MUTECCACO),ACO);CODA: FIN"; 


1353 PRO! MUTE (CH, X); 'CHA'CH; "ΕΝΤΙ !' TAB! X; 
136 "DEB''TENT'I;EXLCCH); IMPR; | 
1361  'POU'I:=1'PAS'1'JUS'4'FAI'LICLAVCX. CI). )'FIN'; 


179 'PRO' FREQ}; 

140 DEBI 'ENTIM, N MIZI +5 رجا ]کات ار‎ 

1401 'S1' 'NON' (CLE (MD ' IMP'CLECNDD'ALO'DREKÇCSEC, SFER, SOUV, SEX) 
1141 'SIN''DEB''SI' NON" (CLE CMD ۱٥ا۷۶‎ ٣ا٤‎ ٤٥0(2 —_ 


1111  TALO'DREK(SGRA, SAIG, SER, SERD'SIN'DREKÇSEG, SED, SEG, 5802۲۴1۸۷۲ "ΕΙΝ; 


1412  'PRO'DREKCW, X, Y, Z); ΕΝΤΙ 'TAB'W, X, Y, Z; 


142 ΙΡΕΒΙΤΕΝΤΙ ΚΙ ΚΞΞΗ ΣΙ 111. «ΞΙΕ 142) 

1421 'SI'CLECL)'ALO''DEB''SI'CLECKD'ALO' 

147 BOUC CJ, 1, SP, HAUT. (I+1, J), ,W. CJ) .) 

144 *SIN'BOUCCU, 1, SP, HAUT. (I+1, J), , Xe CJ). 2} ΕΙΝ) 

145 'SIN''DEB''SI'CLE(K) 'ALO' BOUC CJ, 1, SP,HAUT. CI+1, J)a, Y. (92) 
146 'SIN'BOUC CJ, 1, SP, HAUT. CI+1, J). Ze CJ). J'FIN''FIN!'}; 

147 "PRO! BOUC(CO,BI,BS,PG,PD); 'ENT'CO, BI, BS, PG, PO; 

143 tPOU'CO:=BI'PAS!1'JUS'BS'FAI'PG:=PU ; 

152 ΙΡΡΟΙ IMPROCR,TDS'"'ENT'R,T; 

153 'DEB'DOXCR, I+Q,SP,CO2,C13.,C03.C13., 99, SNO); 


DOXCT, 1+Q+1, PPCM,COU,CI3).,C05.C1).,0, ΡΝΙ.}" ΕΙΝ) 


tPRO'DOXCA1,A2,A3,AU,A5,A6,Z);'ENT'A1,A2,A3,A4,A5,AG;'ENT''TAB'Z7; 


154 'DEB''ENT'L, N; L:=1;ENC7:'POU'N:=A5'PAS'1'JUS'AI'FAI' 
156 IDEDIMAT. CA2, L). Z'SI'N'EC'I'ALO'Z. CI,AH4).'SIN'AG; 
157 Li=L+l1;'SI'L'SUP?1I2'ALO''ALL'ENC8'FIN'} 

153 AQUA CA3,A4); ۱۵۱۲۲۰۶ ۲٤7ر‎ 

159 ENC8S:'SI'N'DIF'A1'ALO'AS:=N+1 


'SIN''DEB'AQJA CA3, AHIJAS:=I'FIN''FIN'; 


'PRO'AOUACB3, BHJ; ENT'B3, B; 
tDEB'BH:=B4+1;'SI'BU'EG'B3+1'ALO!'B4:=l' FIN"; 
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*PRO'ECRITCA);'ENT''TAB'A; 


160 "'DEB''ENT'L;"AIG'CAR:=E1,E2,E3,E4,ES,E6,E7,E8,E9,E10; 
162 L:=1;RETI'SI'A. CLI. SUG! I'ALO''ALL'CAR. CA. (L). 7. 'SIN'!ALL'CAR, (103. ۾‎ 
163 ΕΙΞΕΧΙ. CCV)); 'ALL'CODA;E2:EXL C(($9S));'ALL'CODA;E3:EXL ((#S));'ALL'CODA; 


Eh:EXL (($222; 'ALL'CODA;ES5:EXL CC#))); '"ALL'CODA;E6:EXL ((+)2;j'ALL'CODA; 
E7:EXL ((X));!ALL'CODA;E8:EXL ((-))j'ALL'CODA;E9:EXL C(C(=));'ALL'CODA;j 
E10:EXL CC رر(‎ 


1 ہا6‎ CODA:L:=L+1;'!SI!L'ING'80'!'ALO'!ALL 'RET;IMPR 'FIN!; 
ا16‎ ΕΡΒΟΤΡΟΕΤΕΕ; 
165 'SI'MAT. CI, J). 'SUG'O'ALO'SOLFAIC1, J)'SIN'SOLFAIC2,J); 
166 ۱۵۵0501۴۸ ر101‎ B1); 'ENT'A1, 81: 
167 'DEB''ENT'M} 'AIG'OCT:=01,02,03,04,05,06,07,08,09,010,011,012; 
168 M:=ABSCMODCMAT,CI,B1).,123)+1;'ALL'OCT. CM), j 
169 OJ1:FALSOCA1,B1,1,13);'"ALL'CODA;O02:FALSOCA1,B1,2,16);'ALL'CODA; 
179 0 3:FALSOCA1, 81, 3, 15); ALL 'CODA;O4:FALSO(A1,B1,4, 16); "ALL'CODA; 
171 05:۸50 )۵1, Bl, ر5‎ 15); "ALL'CODA;O6:FALSO(CA1,B1,6,13);'ALL'CODA; 
172 07:FALSOCAI, B1, 7, 149; 'ALL'CODA;08:FALSOCA1,B1,8,13);'ALL'CODA; 
177 09:FALSOCA1, B1, 9,16); "ALL'CODA;O10:FALSO(A1,B1,10,15);'ALL'CODA; 
174 011:FALSOCAI1, BI, 11, 16); "ALL 'CODA;012:FALSO(CA1,B1,12,15);CODA:'FIN'; 
173 'PRO'FALSOCA2,B2,C, D); !ΕΝΤ’Α2, Β2,Ο, D; 
175 SOLFA2(CA2,B2,ALT,CA2,C).,ALT,CA2,D),); 
175 TPRO'SOLFA2(CA3,B3,E,F)3;'ENT'A3,B3,E,F; 
176 "DEB''ENT'M;M:=ADS(MAT.(I,B3).%12); | 
177 ۲51۲۲۲۶ 50۴ ۲۶ 1'۸٥۰ 'DEB''SI'M'EG'2'ALO'SFA,(C20).:=ALT, (A3, 17). 
178 'SIN'SFA,(20).:=ALT. (A3, 182.;M:Z1; "FIN"; 
179 SFA. (E+7*M*ALT. (CA3, 19). -ALT.CA3,20).).:=F'FIN'} 
'COM' IERE PARTIE: 
1 LIRC CAL, NV, PPCM, SP); LIRTCCEL)D;LIRTC(DEP); 
15 LIRTCCSER);LIRTCCSAIG);LIRTCCSGRA);LIRTCCSEX); 
16 LIRTCCSOUV);LIRTCCSFER); LIRTCCSEC);LIRTCCSED); LIRTCCSEG); 
2 LIRTC£DIDI);LIRTCCALT):LIRTCCRYT); 
'COM' TABLEAU DES PULSATIONS ELEMENTAIRES; 
47 'POU'I:=1'PAS'1'JUS'NV'FAI' 
471 CO1,.C19,:=C02,C1),:=C03,.C1).:=CO4,.C1),.:=C05,.C1).:=1; 
21 MUSE : *POU'I:=1!'PAS!'1' JUS'NV'FAI! 
22 'DEB' BOUC CJ, 1, PPCM, PUL. (Εν). 023; 
2 ۲۴۳۵۷۲۶ ۱ل 61..)1(,۱۲۸۵۸۸۷۱+لر.066.)12×؛ل‎ 1061۶۶۲۰۸۷۱ ۴۸1۲۶۱۸ , C(1,J).:=1'FIN!; 


'CON' 3EME PARTIE HAUTEURS 
VARTATIONS NOMBRE DE NOTES, APPO T,ACCORD; 
- ΗΒ MUTE CCVAR), VAR); | 
49 'POU'K:=1'PAS'1'JUS'4'FAI''SI'VAR,. CK). 'EG'1'ALO'CHANG; 
'COM' MATRICIALISATION DES HAUTEURS; 
50 EXLCCCLES));IMPR;PAUSE(1); 
51 ۲۴۱۱۲۷۰۲۷ I:=0'"PAS'IJ'JUS'NV-l'FAI'FREQ; 


ια. "COM! TRAITEMENT SEPARE DES VOIX. DANS MATRICE DES RYTHMES TRANSLATES 
M LIGNE, K NOTE, N COLONNE D1-52 DISTANCE; 
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52 Q:=0;'"POU'1:=1' PAS! 1'JUS'NV'FAI' 


53 ` *DEB'RANDCM, SP); RAND CK, (SP%2+1)-NONO. CI). 2; 
54 P:=0; 'POU'N:=1'PAS'1'JUS'SP'FAI' 
55 'SI'RYT. (M,N). 'EG'1'ALO''DEB'P:=P+1; DUR, (P). := T'FIN', 
56 D1:#DUR, (K). ;D2:=!SI'!K+NONO, C1). ۱" 
57 ۲۸۲۰۰۱0۷۸ , (K+NONO , (1), +1), =1' SIN! 12; 
® COM'HAUTEURS DES NOTES; 
61 BOUC CN, 1, SP, SNO.CI,N)., 99); 
6? ا کےال 11 01۱۶۵۸5۰۱“ :۸۸م ں0م‎ ۰ 
612 *'DEBttSI!RYT, CM, N), EG! 1! ALO ' 
64 tDEB'P:=2CO1.C1).: SNO,CI,ND.:=HAUT, CI,P).; 
65 :=P+1;'!SI'!'P'EG'SP+1!ALO!P:szs1;CO1, CI). 2۰ھ‎ 
66 *SIN'SNO, (1, N). ΣΞΘΩΤΕΙΝῚ} 
'COM'HEME PARTIE COMPRESSION OU EXTENSION DES RYTHMES; 
67 tPOU'P:=-4tPASt'1'"JUS'4tFAI''SI'RAP.CI).'EG'P'ALO' 
68 tDEB''SI'EL.CI).'EG'3'OU'EL.CI1).'EG'4#'ALO! 
69 IMPROCDIDI.CP+5,1).,DID1.€P4#+5,23.) 
70 "SIN''DEB''SI'EL,.CI1).'EG'8'ALO" 
71 IMPRO(CDIDI.CP+5,3).,DIDI.CP+5,4).) 
2 tSIN'IMPROCDIDI.CP+4+5,5).,DID1.CP+#+5,6),D'FIN''FIN';Q:=Q+1"FIN"; 
tCOM'ECRITURE DU CONTENU DE MAT; 
Y1 E XL CC 1 T T T 
Y1 EXL CC 1 T T T 
74 t"POU'‘'J:=1'PAS'1'JUS'SP'FAI! 
75 tDEB'K:=0;BOUCCL, 1,80, BOF. CL)., 0); | 
76 'POU'I!=1'PAS'2'JUS'7'FAI''DEB'BUUC(CM, 1,20,SFA,.CM),,0); 
77 BOF,(1+K). :#MAT, (I+1, J). ; | 
78 L:=CI+1)/2;P:=ACO,C(L), 'SI'P'EG'O'ALO'" Ἢ 
79 'DEB''SI'MAT. CI, J). !DIF'9qQ'ALO'PORTEE; 
30 BOUCCM, 2, 20, BOF. C(M+K)., SFA. CM). D! F IN! 
81 tSIN''DEB''Sl'J'EG' l1'ALO''ALL'ENC10'SIK'!'ALL'ENCI1; 
82 ENC 10: BOUC CM, 1,40,PUL,CL,M).,0); 
83 'POU'N:=1'PAS'1'JUS'SP'FAI' 
8 'DEB!R:SMAT, CI, N). 'SI'R'!INF'O'ALO' 
85 tDEB' SOLFA1C2,N);'POU'M:=21'"PAS'1'JUS'40'FAI" 
86 tSI'SFA.C(M=20).'DIF'O'ALO'PUL.CL,M).:=SFA.CM-207),'FIN' 
87 1SIN''DEB''SIJ'R'DIF'9g'ALO! 
89 'DEB'SOLFAIC1, ND} !'POU'M:Zz1!PAS'1'JUS'20''FAI! 
99 tSI'SFA. CM). 'DIF'O'ALO'PIL. CL,i D). =SFA. CMD. 'FIN''FIN''FIN"}; 
86 ENC11:'SI'J'EC'P'ALO'BOUCCM, 2, 20, BOF. CM+K)., PUL , CL, 11), 
87 tSIN''DEB''SI'J'EG'P+1'ALO'BUUCCM, 2,20, BOF. CM+K),,PUL, CL, M+20).) 
88 'SIN'BOUCCM, 2,20, BOF. CM+K)., 02 FINIFINI; K:2K+20'FIN'; 
89 ECRITCBOFD'FIN!'; 
90 E XL CCKDD3 IMPR LICLAVCK);'SI'K'EG'1'ALO''ALL'MUSE'FIN'# 
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ANNEXE τ 


1 tDEB''ENT'I ,J,K,L,M,R,Sy AL; 

2 'ENT''T AB' SOR, SER, SAIG, SGRA,SEX, SOUV, SFER,SEC,SED,SEG.(1:12).; 
ENT! 'PRO'ALEA ; 

103 A. : =MODCAL*7, 9973); 
ENT! 'PRO!MOD(X, Y); ΕΝΤΙ X, Y; 

104 MOD: zX-X%Y*Y; 
tPRO'AIGR AÇCA ,۷( رز‎ 'ENT'A;'ENT''TAB'Y; 

105 "ΡΟυ1:51}ΡΑ65}1!υὐυ5 12 'FAI'Y.CI).:=SER, C1),.+A; 
ΡΟ ΕΧΤΒΕΜ; 

108 یل 1۱۳۸5۴1 :1 ںوم‎ ۱٢۷٣۹ 

109 SEX, (1), ='SI'MODCI ,2(۱ 6۰ع‎ ۲" AO'S AIG.CI1).'SIN'SGR A CI).; 
'PRO'FEROUVCA,B £,D,X); TENT ۱۸ ,B کر‎ yD; ۴٢۳۷۲۰۴ ۹۲ /B' X; 

122 IDEB'!ENT'!TAB'SELI, (11212), ;SELI, (C). :#D; 

123 tPOUt'1:=c- AP S'-A'!JUS'B'FAI' 


tDERB'R:=1+4S:=C-ASI+A% 0(6 
SELI1.(1).:="SI'MODCI,2)'EG'0'ALO'SELI.(R).-S 
ISIN 'SELI,CRDe+S'FIN'; 


124 OMPARCX, SELID'FIN"; 

PRO! COMP ARCV, W); 'ENT''TAB'V, W; 
128  'DEB''POU'I:=1'PAS'1'JUS'12'FAI'V. (I). :=SER,CI)D.; 
129 'POU'I:=1'PAS'1'JUS'12'FAI'". n 7 


IDEB'K:=V.CI).5L:=We CID. ; 

tSIJ'K'DIF'L'ALO" | 
130 *DEB''SI'K'SUP'L'ALO'PLUMOC-12 K,L,V. C1). ) 

!SIN'PLUMOC12,L کر‎ Ve (1) ΕΙΝ ΕΙΝ ΕΙΝ”) 


'PRO'PLUMOCA, B ,C,D); 'ENT'A,B,C, D; 


131 'DEB'REP:K!:=K+A;'SI'B'SUP'C'ALO''ALL'REP'SIN'D:=K'FIN'"; 
'PRO'GDCCA,B,C,D,Z);'ENT'A,B,C,D;'ENT''TAB'Z;} 

133 tDEB''POU'I:=1'P Æ'1'JUS'12'FAI' 
'IDEB'!Z, CID. :#SER, (I). ; 

134 'SI'I'EG' A'OUtI'EG'B'ALO'Z.CI),:=SGRA.CI),; 


'SI'I'EG'C'OU'" J'EG'D'ALO!'Z,CI).:=S AIG.C1).'"'FIN''FIN'; 


IMPSERCCH ,X); "CHA! CH; "ENT! 'TAB'X;‏ جم 
tDEB'EXLC ἡ );'POU!I:=1'PAS'1'JUS'12'FAI'‏ 
EXEC3,X. CI). J); IMPR'FIN';‏ 


t OM'CHOIX DE LA SERIE POUR SP%12; 
E XL (EALAD; IMPR LICL ACAL); 


39 ENC2:'POU'1:=1'P Æ'1'JUS'12'FAI'SOR. CI). :=1;} 
40 ٢مہں‎ 1: 21۱۲۶۲۵۸5۲ 1 1ل‎ 7۰ 
"1 'DEB'ENC3:ALEA;K:=MODCAL ,12)+1;J:=SOR.CK),; 


'SI'J'DIF'O' AO''DEB'SER.C1).:=J;SOR.CK).:=0'"FIN" 
tSIN''ALL'ENC3'FIN!; | 


42 IMPSERÇESERIE ORIGIN /AEG,SER); 
43 EXLCED:ACCORD_ M:=1 OU 0.@);IMPR;EXLCEM@); IMPR ;L'ICLAVCM); 
45 'SI'M'EG'O'ALO'' ALL'ENC2; 


' OM!DEDUCTION DES AUTRES SERIES; 
46 AIGR ۸۷ )36 ,SAIG); IMPSERCE SERIE AIGUER,S AIG); 
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